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Chopped up by T. Krichevsky for inclusion in VMSLIB. 


MODIFIED BY: 


v03-002 TSK0001 Tamar Krichevsky 15-Dec-1982 
Modify PSECT attributes. 


v03-001 mi. 19085 art in L. Jack, 30-Mar-1982 13:4 
odi fy mare to oe d setting a wild firectory bit, past the 
a n 


ate of d pirectory Levels that actually exis 


related file specification. 


v02-007 MLJ0077 Martin L. Jack, 8-Feb-1982 15:11 
Implement negative version 


1 »TITLE MATCH File specification matchin 
¢ “IDENT "V04-000" ‘ . 
¢ s eencecccerececerereeqnenerensqnneceneqnnescecqcenecoeqqqnteceoqnqnceeeseeses 
e x 
§ 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
8 3* DIGITAL ate CORPORATION, MAYNARD, MASSACHUSETTS. * 
8 16 = ALL RIGHTS RESERVED : 
11 :* THIS SOFTWARE IS FU nat SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1g :* ONLY IN ACCORDAN ce WITH THE TERMS OF SUCH bICCNSE AND WITH THE * 
15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS soft ARE OR ANY OTHER * 
8 14 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
O80 1 :* TRANSFERRED. * 
bs *® 
0900 18 ;* ine INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 , :* CORPORATION. * 
3 . 
$000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ee 
a 
0900 § ITITITITIIITITI TIT IIIT TILT TITiTI Iii tiiiiiii ii itt iii titi ttt 
0000 8 ;++ 
4464 9 ; FACILITY 
4 Sackup/Restore 
$009 § ABSTRACT: 
4 ? This module contains file specification matching routines. 
000 5 ; ENVIRONMENT: 
Bo $ VAX/VMS user mode. 
0 8 
0 39 ns 
09 41 ; AUTHOR: M. Jack, CREATION DATE: 19-Sep-1980 
0 4g With acknowledgment to Goldstein and Halvorsen for the pieces. 
44 
22 
‘3 
2 
: 
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v02-006 MLJ0063 Martin L. Jack, 11-Dec-1981 14:41 
ener output UIC wildcarding by inserting a coune in the 
related filename string if the selection file specification 
is in UIC format. Modify version number selection so that 
negative pattern versions are accepted and eee mote’. 
Have INIT_NAMEBLOCK use expanded string if resultant is null. 


vO2-005 MLJ0054 Martin L. Jack en “1981 16:24 
Correct problem with leading (60000 | in candidate directory. 
Bott ty calling sequence for MATCH_DIRECTORY to allow long 
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s 
e 
64 
9 
89 
85 
$3 enames. 
0 71 V02-004 MLJ003 Martin L. Jack, 28-Aug-1981 16:58 
ue Extensive rewriting for reel restart and early scan termination. 
00 74 v02-003 MLJ0025 Martin L. Jack, 8-May-1981 13:42 
86 o? Implement Latest version selection. 
000 ig V02-002 MiLJ0022 Martin L. Jack, 21-Apr-1981 13:54 
4 £8 Convert directory wildcarding to use RMS. 
000 0 v02-001 MLJ0010 Martin L. Jack, 25-Mar-1981 14:04 
000 1 Add routines FAST_MATCH and PARSE_FAST_DIR. Correct problems 
Bee ¢ with [000000...J and the Like as Selection filespec. 
Bae 4 jee 
000 5 
0000 86 
444 87 SNAMDEF 
00000000 88 -PSECT S$CODE,RD,NOWRT,EXE,SHR,PIC 
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MATCH File specification matchin 16-SEP-1984 02:18: AX/VMS Macro V04-00 ° Cc 
v04-000 MATCH, match complete file*specification §-8 P=1984 §e: 18:38 VMSLIB.SRCILISCQMAT.MAR; 1 Moai 3) V 
: -SBTTL MATCH, match complete file specification ; 
;++ : 
4 : Functional Description: : 
5; is routine executes a wild card match on a candidate and pattern ; 
88 ; file specification. : 
38 : Calling Sequence: ; 
133 ALLS/CALLG ; 
1 ° : Input Parameters: : 
1 § 3 (AP) = Address of descriptor for candidate file specification. 3 
! Z ‘ 8(AP) = Address of descriptor for pattern file specification. : 
0 105 : Implicit Inputs: ; 
09 ! $ : F none ” : 
09 108 : Output Parameters: : 
500110 ang : 
00 111 : Implicit Outputs: : 
00 11 : none : 
$60 114 : Routines Called: ; 
0000 115; MATCH_DIRECTORY ; 
8000 118 ; MATCH_F ILENAME ; 
$008 18 + Routine Value: : 
000 1% 3 rue if the strings match. : 
0 121: Signals: ; 
B86 ! § : none : 
009 124 : Side Effects: ; 
0 125 3 none F 
ae ae 
000¢ 09 ? .ENTRY MATCH, “M<R2,R3> : 
09 131 : Parse the candidate string into a directory string and a : 
0 : § ; name, type, and version string. : 
2g 04 BC 7D 134 ° mova Oh (AP) Rg 3; Get candidate string descriptor : 
63 5 58 8F 3A 135 LOCC #*A'C’ ,R2,(R3) ; Scan for start of directory 3 
12 1 $ BNEQ : Branch if found 3 
63 8 C = = % LOCC #*a'<" R2,(R3) ; Scan for alternate syntax 3 
5 0 9€ 0011 1 2 10$:  MOVAB =-(RO).R : Prune beginning of string ; 
33 n Al E 14 #1 MOVAB 1(R ),R 3 3 
63 D 8F A 18 140 LOCC #*a'd* R2,(R3) 3: Scan for end of directory 3 
4 2 1D = 141 BNEQ 208 : Branch if found 3 
63 «52 A 1F 148 LOCC #*A*>* ,R2,(R3) 3 Scan tor alternate syntax 3 
4 145 208: cyan RB ; Make directory descriptor 3 
7E 52 § 144 SUBL RO,R2,-(SP) 3 3 
01 Al F 145 PUSHAB 1(R1 ; Make name, type. version descriptor : 
70) OF C 146 PUSHAB =-(RO) ; 3 
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Parse the pattern string into a directory string and a 
name, type, and version string. 


MOVQ @a8(AP),R 
LOCC PA Ee CRS, (RB) 


Get pattern string descriptor 
Scan for start of directory 
Branch if found 


; Push candidate descriptor 
Match directories 
Return 


147 
14 
1 
1 
C D 1 3 
. BBY | : 
63 28 5 A 154 L #*Aa'<" ,R2,(R3) : Scan for alternate syntax 
E 155 30$ MOVAB =(RO).R : Prune beginning of string 
33 gr Al E 004 1 § MOVAB 1(R ),R 3 
63 D &F A 4 1 LOCC #*A')* ,R2,(R3) : Scan for end of directory 
4 2 0049 1 8 BNEQ :; Branch if found 
63 52 A 0048 1 LOCC #*A'>",R2,(R3) ; Scan for alternate syntax 
43 DO4F §=6. 160 408 PUSH ; Make directory descriptor 
7E 52 ¢ 51 161 SU RO,R2,-(SP) 3 
01 Al F 23 196 PUSHAB 1(R1) ; Make name, type, version descriptor 
70 =F TH 197 PUSHAB =(RO) : 
U : 
tN 192 ; Match the name, type, and version strings. 
5E 5A 183 ‘ PUSHL sf ; Push pattern descriptor 
14 A OF 5¢ 198 PUSHAB a ; Push candidate descriptor 
72" AF 9 5F 1 CALLS #2,B*°MATCH_FILENAME ; Match filenames 
08 $3 109 BLBC rRO,50$ ; Branch if failed 
re 76 : Match the directory strings. 
08 AE OF 17 ’ PUSHAB 8(SP) ; Push pattern descriptor 
17 
49 


PUSHAB 
CALLS 


1¢ ag 28(SP) 
OOES*CF 0 FB #2,W*MATCH_DIRECTORY 


un aaa 
yy in type, v Bet tt 82:18:38 YUMSLTB. SRETCIBCOMAT .MAR; 1 suet 3) 


-SBTTL MATCH FILENAME, match file name, type, version 
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Functional Description: 
This routine executes a wild card march on the name, type. and version 
of a candidate and pattern file specification. If the pattern selects 
Latest version, this routine assumes that the candidate file is the 
latest version, and therefore that the version matches. 


aay Sequence: 
ALLS/CALLG 


Input Parameters: 
tts = Address of descriptor for candidate file name, type, version. 
8(AP) = Address of descriptor for pattern file name, type, version. 


Implicit Inputs: 
none 

Output Parameters: 
non 

Implicit Outputs: 
none 


Routines Called: 
FMGSMATCH_NAME 
LIBSCVT_DTB 


Routine Value: 
rue if the strings match. 


Signals: 
none 


Side Effects: 
none 
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O3FC ENTRY MATCH_FILENAME,“M<R2,R3,R4,R5,R6,R7,R8,R9> 
2 > Parse the candidate string into a name and type string and a version string. 

52 04 S 7D 0074 : MOVQ a4(AP),R2 ; Get candidate string descriptor 

28 C 78 MOVZWL R2,R :; Truncate length to a word 

63 78 LOCC #*A"s*,R2,(R3) ; Scan for version number 
3 ; 7F BEQL $ ; Branch if not found 

52 0 3 1 SUBL2 R0,R2 3 Ro=RS: candidate name and type 
57 O1 Al 9€ 4 MOVAB 1(R1),R7 : R6-R7: candidate version 

56 70 9€E 8 MOVAB -(RO),R6 3 

: Parse the pattern string into a name and type string and a version string. 

54 08 e¢ zp : MOVQ a@B8(AP),R4 : Get pattern string descriptor 

54 4 C F MOVZWL R4,R4 ; Truncate length to a word 
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Locc #*A's* RG, CRS) 
BEQL 20$ 
SUBL2 RO,R4 
MOVAB 1(R1),R9 
MOVAB =(RO),R8 
; Match the file name and type. 


JSB G*FMGSMATCH_NAME ; Match name and type 
BLBC RO. 208 ; Branch if failed 


: The match succeeded. Now the version numbers must be matched. 


; Scan for version number 
3; Branch if not found 

; R4-R5: pattern name and type 
; RB-R9: pattern version 


TSTL R Pattern version null? 
10$ Branch if yes 
(RO) ,#*A'«' Wildcard pattern version? 
10$ Branch 


yes 
Push address of result location 
Push descriptor 
Convert pattern version number 
Branch if conversion failed 
Get pattern version number 
Branch if explicit zero or negative 
Push address of result location 
Push descriptor 
Convert candidate version number 
Branch if conversion failed 
Assume failure return 
Compare versions 
Branch if versions equal 
Return failure 
Set success status 
Return 


BEQL 
PUSHAL =(SP) 
MOva R6.- (SP) 
CALLS @ -GoLIBSCVT_DTB 
BLBC ~=—_- RO, 208 

MOVL ($B)+,R8 

BLEQ 10$ 

PUSHAL =(SP) 

MOva R6.- (SP) 

CALLS @# -GoLIBSCVT_DTB 
8 RO, 208 


CMPL (SP)+,R8 
10$ 
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-SBTTL MATCH_DIRECTORY, match directories 


; Functional Description: 
: This routine executes a wild fore match on the directory 
of a candidate and pattern file specification. 


: seen poqyence 
: ALLS/CALLG 


; Input Parameters: 
4(AP) = Address of descriptor for candidate directory. 
(AP) = Address of descriptor for pattern directory. 
(AP) = Optional address of descriptor for pattern 
name, type, and version. 


Implicit Inputs: 
none 


; Output Parameters: 
12(AP) = Optional address of descriptor to receive terminator file 
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name and type. 
16(AP) = Sot venes address of word to receive terminator file version 
number. 
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; Implicit Outputs: 
: none 
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9 
ae 
00 99 ; Routines Called: 
00 00 FMGSMATCH_NAME 
4 01 LIBSCVT_DIB 
0 08 PARSE_DIRECTORY 
09 04 ; Routine Value: 
0 5 Bit 0: Set if the directory Strings match. 
0? ; Bit 1: Set if the directory must be scanned. 
0 ; Signals: 
03 ; s none 
0 11 ; Side Effects: 
0 \¢ none 
1 
13 Fe 
O3FC 1 ~ENTRY MATCH DIRECTORY, “M<R2,R3,R4,R5,R6,R7,RB,RI> 
SE FF38 CE 9€ 1 MOVAB -200(SP),SP 3; Make directory parse space on stack 
i§ : Parse the candidate directory string. 
52 04 § 7D ? : MOVa @4(AP) ,R2 ; Get candidate string descriptor 
2? 3¢ ¢ MOVZWL R2,R2 ; Truncate length to a word 
4 5 88 MOV SP,R 3; Point to result area 
01 4 BSBW = PARSE_DIRECTORY > Parse the specification 
6 : Parse the pattern directory string. 
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v04-000 MATCH DIRECTORY, match directories §-§ sats yi §e 318338 VMSLIB.SRCIJLIBCQMAT.MAR; 1 ° d) 
F 13 
52 08 8S D a MOVa @8(AP) ,R2 ; Get pattern string descriptor 
52 C FB MOVZWL ; Truncate length to a word 
54° 4G AE : F MOVAB 68(SP),R4 ; Point to result area 
011 BSBW = PARSE_BIRECTORY > Parse the specification 
i ? ; Set up for matching directories. 
52. 6F 3c «(01 Be MOVZWL (SP),R2 : Get candidate descriptor count 
3 604 AE 3 108 § MOVAB 4(SPS,R3 ; Point to candidate string results 
4 46 AE C 195 MOVZWL § (SPS ,R4 ; Get pattern descriptor count 
5 48 af 3 11 8 MO (SP),R5 3: Point to first pattern descriptor 
5 C We m4 CL R ; Clear saved directory count, pointer 
Bb 41 ; A_special matching rule applies if the pattern string directory is in 
11 g ; UIC format. Such a qirectory matches only if the target string 
O18 re ; directory contains six octal digits. 
19 46 A E9 0116 45 BLBC 70(SP),20$ ; Branch if pattern not UIC format 
0 5 D1 O11A r4 CMPL R2,#1 ; Exactly one directory in target? 
4 12 O11D 4 BNEQ 5 ; Branch if no 
50 63 7D OIF 48 MOVQ (R3) ,RO ; Get target directory descriptor 
06 50 01 132 49 CMPL RO, #6 > Six characters? 
D i 1 50 BNEQ 50 : Branch if no 
59s «BI 0 8 4 7 51 108: SUBB3 = #*A'O', (R1)+,R9 ; Bias character by ASCII 0 
07 9 91 0128 2¢ CMPB R9 #7 ; Make sure in range 
4 1A 4 5 BGTRU 5 :; Branch if no 
F450 =F 5 4 2¢ SOBGTR RO,10$ ; Loop until all examined 
0 28 ; Handle MFD in pattern and candidate strings. 
06 65 D1 01 58 20$:  cCMPL (R5),#6 : First pattern directory Length 6? 
1A =612 «0136 59 BNEQ ; Branch if no 
0485 06 3 3 138 60 SKPC #*A'O' ,#6,84(R5) ; First pattern directory ‘'000000'? 
1 1 13D 61 BNEQ ; Branch if no 
06 6 Di O13F 6¢ CMPL (R3) #6 ; First candidate directory length 6? 
7 12 0142 6 BNEQ :; Branch if no 
04 B83 06 0 144 64 SKPC #*A'O' ,#6,84(R3) ; First candidate directory '000000'? 
| 149 65 BEQL 60$ ; Branch if X88 
54 OD 148 66 30$: DECL R4 ; Prune '000000° from pattern 
CO 0140 6 ADDL2 #8,R5 ; 
15 11 015 68 BRB 60$ + Go to do full match 
06 6 D1 01 8 40$: CMPL (R3) #6 ; First candidate directory length 6? 
18 2 01 9 BNEQ $ ; Branch if no 
04 83 06 1 7 SKPC #*A'0' ,#6,a4(R3) ; Candidate directory is '000000'? 
09. = 15C¢ if BNEQ 0 :; Branch if no 
50 g? 7D 01 f 7 mova (R5),R0 ; Get descriptor for first pattern 
6° 7 $1] 16 74 BRW 1998 ; Branch to fail with scan 
: : Branch to fa 
089 1 199 o 50$ BRW 130$ B h fail 
187 7 3; Now execute the full-scale match. 
167 8 b0$ DECL R4 ; Pattern exhausted? 
169 9 BLSS 005 ; Branch if yes 
168 MOVa (R5)+,R0 ; Get next directory in pattern 
IGF : CHP (Rt) BPAY. : check for ellipsis 
1 ; Branc yes 
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2 7 01 4 DECL R ; Candidate exhausted? ; 
C ts 1 5 BLSS 140$ ; Branch if yes : 
58 1 § PUSHR #*M<R2,R3,R4,R5> 3; Save te be ers around MATCH ot : 
28 D 0179 mMOVa R ; Load pattern descriptor to R4-R 3 
: 63 7D O17C : mova (R$),R2 i Load candidate descriptor to R2-R3 ; 
QOOO0000'GF 16 OI7F JSB GPERGSMATCH NAME ; Check candidate against pattern 3 
BA 01 $ 0 POPR #°M<R2,R3,R5,R5> ; Restore registers 3 
53 cg 1 91 ADDL2 £8.88 ; Advance past descriptor 3 
DA E : 5 35 BLBS RO,60$ ; Branch if match : 
18D 94 ; We have detected a mismatch, or we are out of pattern string while there $ 
18D 95 ; is input left. Back up to the last ellipsis, advance a directory of the 3 
: 4 89 ; input, and try again. : 
26 D7 018D 98 70$ DECL R ; Count a directory from saved input 3 
B 19 O18F 99 BLSS 120$ :; Branch if no saved input ; 
57 08 4 191 400 ADDL2 #8,R7 ; Set to try next input directory 3 
52. 56 D 0194 401 mMOva R6,R2 ; Restore pointers to backup point 3 
54 58 7D 0197 rt MOVa RB,R4 H to retry matching : 
cB Sit Bide ret BRB 60$ ; Continue testing ; 
O18 405 ; Here when pattern string is exhausted. : 
52S gi9¢ 209 bos TSTL R2 ; Input exhausted? ; 
ED 12 bts 238 BNEQ 70$ 3; Branch if no : 
Bia 410 : Establish the pattern file name, type, and version specified by : 
4 ai] ; the fourth parameter as the terminator and return success. : 
05 6c 91 OIA 418 $0 PB (AP) #5 ; Parameters present? 3 
6 1F OIA 414 BLSSU 1008 3; Branch if no 3 
59 OC AC DO OQIA 415 OVL 12(AP) ,R9 ; Point to result area descriptor : 
69 B4& O1A9 $18 CLRW (R9) : Set no terminator ; 
57 05 Q1AB 41 TSTL R7 ; Ellipsis found in string? : 
eC 12 OAD $18 BNEQ 100$ ; Branch if yes : 
52 148 7D Q1WAF 41 mMOVQ pe? gr? Re ; Get descriptor for specification 3 
5 C 0183 420 MOVZWL R2,R2 ; Truncate length to a word : 
63 «5 B 3A 0186 421 OCC =. #*A" *, R2, (RB) : Scan for version number F 
1F 13 QOIBA 4 § EQL 100$ :; Branch if not found 3 
52 50 C2 O1BC 4 SUBL2 R0O,R2 3; R2-R3: name and type 3 
9? DD QOIBF 424 PUSHL #0 3; Create and clear result location 3 
E D ie} 425 PUSHL SP ; Push address of result location 3 
01 Al F OIC 4 § PUSHAB 1(R1) ; Push address of version number 3 
7 oF 1t8 4 PUSHAB are ; Push Length of version number 3 
00000000 ' GF F 1C 4 8 ALLS # # LiBsCNT DTB 3; Convert version number ; 
10 BC F? O1CR 4 CVTLW (SP) +, 16 (APY : Set terminator file version ; 
69 103 430 OVW R + (RO) ; Set byte count of name and type : 
04 89 2 106 = 431 MOVC3 R2,(R3),a4(R9) : Set terminator file name and type ; 
0 0 3 10B 4 § 100$: MOVL #5,R0 ; Set success status 3 
4 135 2 i ET 3; Return : 
1DF 435 : We have encountered an ellipsis in the pattern string. Save the string : 
44 : § ; pointers for backup and retry. 
5 2 7D OWF 4 8 110$: MOVQ R2,R ; Save current string pointers 
5 4 ie 4 MOVa R4,R 3 of both strings 
4 0O 1E 440 TSTL RG ; Pattern string null after ellipsis? 
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v04-000 MATCH DIRECTORY, match directories ise ty F be 18:38 LUMSL IB. SRETLIBCOMAT.MARS 1 ° (4) v0 
8 } 1E7 44 BEQL 208 ; Ellipsis at end matches all ; 
FF 7B \e? ¢2 BRW 60$ ; Continue testing : 
1EC Aad ; Here when match fails. : 
57 Ds TEC 446 1208: STL R7 ; Ellipsis found in string? : 
tH 1 1EE 44 BNEQ 140% ; Branch if yes : 
0 + 1F ree 130$: CLRL RO ; Set failure : 
* Ores 280 = 
if a3 ; Here to establish the directory specified by RO-R1 as the terminator. ; 
06 6C 91 OTF re} 140$:  CMPB (AP) ,#4 ; Parameters present? ; 
\ ip: ie tee BLSSU 150$ ; Branch if no ; 
59 OC AC DO OTF 455 OVL 12(AP) RO ; Point to result area descriptor 
34 B4 OFC $28 CLRW (R9) ; Set no terminator 
7 ODS OWE 45 TSTL R7 ; Ellipsis found in string? 
”.- Te 00 458 BNEQ 150$ ; Branch if yes 
69 50 04 Ai be 459 ADDW #4,R0,(R9) ; Set byte count of name and type 
4B9 61 50. 28 6 460 MOVC3 RO, (RI) ,a@4(R9) : Set terminator file name 
63 5249442E BF D0 08 461 MOVL #*A'.DIR', (R3) : Set terminator file type 
10 B8C 01 BO 021 rb MOVW #1, a16(APS ; Set terminator file version 
50 02 00 8 18 463 150$ MOVL #2,R0 ; Set no match, scan directory 
04 1 464 RET ; Return 
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Functional Description: 
This routine parses the directory portion of a file specification. 


Sati tng Joquences 


Input Parameters: 
Re = Length of directory string. 
RS = Address of directory string. 
R4 = Pointer to result area. 


Implicit Inputs: 
none 

Output Parameters: 
none 


Implicit Outputs: 
Result area contains a count of descriptors followed by one descriptor 
for each component of the directory specification. An ellipsis is 
represented a one-byte string '.*. If the directory is in UIC 
format, bit 16 of the descriptor count longword is set. 


Routines Called: 
494 none 
495 
49 Routine Value: 
49 none 
498 

Signals: 

none 
Side Effec 


g83 
RO-R5 destroyed. 


PARSE _DIRECTORY: 
MOVAL Keep pointer to result area and bump 
Clear component count 


(R4)+,R5 
(R5) 


; Main scanning loop. 
10$: LOCC #*a'.",R2,(R3) 


; Scan for delimiter 
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63 52 2A 3 
3 i BEQL $ ; Branch if none found 
84 8652 C SUBL3 RO,R2,(R4)+ : Set length of th ; component 
B4 D0 MOVL = R3, (RA) + : Set address of this component 
§ 6 INCL §) 3; Count this component 
53 320 iy aE oor sence ; Prune this component from string 
02 5 o} nt #2" ; At Lops ge penarecters lett? 
2E2E 8F 5 B1 CMPW (a “ : Ellipsis present? 
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MATCH File specification matchin 16-SEP-1984 02:18: AX/VMS Macro V04-00 Page 1 
v04-000 PARSE DIRECTORY, parse directory into co mii ety 92: 1B 4 VMSLIB.SRCILIBCQMAT.MAR; 1 . tg) 
1 3F 3 BNEQ 10$ ; Branch if no 
2 C 4) 4 SUBL2 #2,R2 3; Adjust count 
4 44 5 MOVL #1, (R4)+ ; Set length of this component 
4 47 § MOVAW (RB)+, (R4)+ ; Set acerges of *.” 
6 D 4A INCL (R5) ; Count this component 
..-3 rt 8 BRB 10$ ; Branch to get next component 
rt ? ; Here when no '.' found in string. 
05 4 ; 20$: STL R : At end of string? 
1 5 BEQL 30$ 3; Branch no 
84 7D 2 4 MOVQ R2,(R4)+ ; Set descriptor for last component 
6 06 5 INCL (R5) :; Count Last component 
01 §3 D1 5 § 30$: CMPL (R5) #1 ; One component? 
D 12 SA BNEQ 70$ :; Branch if no 
52 04 A5 7D 26 § MOVQ 4(R5) »R2 :; Get descriptor for first component 
52 ef 3A 6 LOcCc #*A"," ,R2,(R3) 3; In UIC format? 
13 re r¢ BEQL 70$ ; Branch if no 
og +g ; Special processing for UIlC-format directory. 
Q AS 88 0266 544 ° BISB2 #1,2(R5) ; Set UIC format bit 
4 (0C AS i 6A 545 MOVAB 12(R5),R4 : Point to UIC storage 
4 AS 6 OD $f rt MOVL #6,4(R5) 3; Reset component descriptor 
4 AS 4 D0 4 MOVL R4,8(R5) 5 
84 at” st / 44 A re movi #7479000" 5 (R44 : Initialize to 000000 
38 2 e5 83 50 ADDL R2,R3 : Point past member number 
52. 50 Cs ; 51 SUBL RO,R2 ; Get Length of group number 
20 D 8 26 DECL ; Get Length of member number 
2A «OFF A 91 8A 5 CMPB -1(R3) ,#*A's' ; Is member number ‘*'? 
OA 12 0 3 54 BNEQ ; Branch if no 
74 Sa dep 55 MOVW M*A'EE" (RG) 3 Make it ‘%%%° in output 
4 5 9 9 2$ MOVB #*A'E" ,-(R4) s 
9 11 98 5 BRB ; Done 
74 2 9A 28 40$: MOVB =(R3) ,-(R4) ; Copy one digit 
FA 50 =F 9D 5 SOBGTR R ; Loop until done 
54 OF AS 9E AQ 60 50$: MOVAB 15(R5),R4 ; Point past group number 
cA 6UFF AL OM AG 61 CMPB -1(R1) ,#*A's' ; Is group number ‘*'? 
9 1 A8 $¢ BNEQ 6 ; Branch if no 
74 525 8F 3 AA 6 MOVW #*A'RE" (RO) ; Make it ‘%2%° in output 
4 5 0 AF 64 MOVB #*A'E" ,=(R4) ; 
7% 71 96 8588 868 608: ROB. -=(R1) ,=(RG) s Bees ces dials 
: ~ ~ :; Copy one 
FA 52 9 8b $9 SOBGTR R2,60$ : Loop titt done 
05 + os 70$: RSB ; Done 
BA 3 END 
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MATCH File specification matchi 16=SEP=1 
Symbol table “ . = 87365 71982 Be: 18; g 
FMGSMATCH_NAME eteeeeee =X 
,IPeCvt oTB 90000000 ag 
MATCH_DIRECTORY 3 RG 
MATCH_F ILENAME RG 
PARSE _DIRECTORY 1A R 

fm eee ors 

! Psect synopsis ! 

peer scce eee ee tena} 
PSECT name Allocation PSECT No. Attributes 
- ABS . 0000 ) 0 ¢ 0.) NOPIC USR CON ABS LCL N 
SABSS 09009 of ( 6 ) 0 ( 1.) NOPIC USR CON ABS~ LCL NO 
SCODE O0002BA ( 69 et Ser PIC USR CON REL LCL 


pmo an aer ance eonaoe eee $ 


H Per formance indicators : 
+ 


Phase Page faults CPU Time Elapsed Time 
Initialization $9 88: .08 0: 8:0 30 
ponnene processing 13 + “a? 0: B38 £3 
Symbol table sort i 9:00 354 if Be 
Symbol table output 4 0:00 9:00.0 00:00:00.05 
Psect synopsis output 5 388 °8 00: 8088 
breso~reterense output 0 00: B88: :00. 00:00: 2-9 
Assembler run totals 469 00:00:04.9 00:00:16. 


The. orking ($5 Limit was 900 pages. 
17435 eytes. (35 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space olvocated to hold 164 non-local and 55 Local symbols. 
570 source As were read in Pass 1, producing 20 object records in Pass 2. 
8 pages of virtual memory were used to Poefine macros. 
deere cee ence se nse ese eeu ese as + 


! ; Macro library statistics ; 


Macro Library name Macros defined 
"$255$DUA28: CSYSLIBISTARLET.MLB; 2 & 
217 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/DISA=TRACE/LIS=LIS$:LIBCQMAT/OBJ=OBJ$:LIBCQMAT MSRC$:LIBCQMAT/UPDATE=(ENHS$:LIBCQMAT) 


AX/VMS Macro V04-00 Page 3 
VMSLIB.S REIL IBCQMAT.MAR;1 (5) 


OSHR NOEXE aa NOWRT NOVEC BYTE 
SHR = EXE 


WRT NOVEC BYTE 


SHR EXE RD NOWRT NOVEC BYTE 
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